home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / GWU Demos / random.ads < prev    next >
Text File  |  1993-10-09  |  414b  |  19 lines
  1. PACKAGE Random IS
  2.  
  3. -- Simple pseudo-random number generator package.
  4. -- Adapated from the Ada literature by
  5. -- Michael B. Feldman, The George Washington University, November 1990.
  6.  
  7.   PROCEDURE Set_Seed (N : Positive);
  8.  
  9.   FUNCTION  Unit_Random RETURN Float;
  10.  
  11.     --returns a float >=0.0 and <1.0
  12.  
  13.   FUNCTION  Random_Int (N : Positive) RETURN Positive;
  14.  
  15.     --return a random integer in the range 1..N
  16.  
  17. END Random;
  18.  
  19.